home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / More Examples / def-tempo nil = error < prev    next >
Text File  |  1998-10-26  |  583b  |  33 lines
  1. ; def-tempo nil = error
  2.  
  3. (def-length
  4.    v1 '(1/8 -1/8 1/8 -1/8 1/8 -1/8 1/8 -1/8)
  5. )
  6.  
  7. (def-symbol
  8.    v1 '(a b c d)
  9. )
  10.  
  11. (def-tonality
  12.    v1 (activate-tonality (chromatic c 5))
  13. )
  14.  
  15. (def-velocity
  16.    v1 '(30 20 15 20)
  17. )
  18.  
  19. (def-zone
  20.    v1 (make-zone '(1/8 -1/8 1/8 -1/8 1/8 -1/8 1/8 -1/8))
  21. )
  22.  
  23. ;; set nil to cancel 120 default tempo, no tempo will be written
  24. ;; this won't work with MidiShare player, but can probably load
  25. ;; with other sequencers. This depends on the implementation on
  26. ;; how they deal with tempo track.
  27.  
  28. (def-tempo nil)
  29.  
  30. (compile-instrument-p "ccl;output:" "test2d"
  31.    v1
  32. )
  33.